10 C=0:FOR I=0 TO 31:READ N:C=C+N:POKE 828+I,N:NEXT
20 IFC<>4900THENPRINT"ERROR IN 10-50":STOP
30 DATA 173,24,208,73,02,141,24,208,96
40 DATA160,0,132,251,169,216,133,252,162,4,169,14,145,251,200,208,251,230,252
50 DATA 202,208,246,96
60 SYS65409:SYS837:V=53248:BK=V+33:POKEBK,0
70 SM=1024:CM=55296:FOR I=0 TO 255:O=172+I+24*INT(I/16):POKESM+O,I
80 POKE CM+O,I/16-(I<16):NEXT
90 POKE198,0:BO=PEEK(BK-1)AND15:POKEBK-1,14+(BO=14)*14
100 GETR$:ON-(R$="")-2*(R$="G")GOTO100,120
110 SYS828:GOTO100
120 IF(PEEK(V+24)AND6)=6THENSYS828
130 IFSFTHENRETURN
140 C=0:FORI=0TO48:READN:C=C+N:POKE679+I,N:NEXT
150 IFC<>5814THENPRINT"ERROR IN 140-180":STOP
160 DATA120,169,51,133,1,162,16,160,0,140,193,2
170 DATA140,196,2,169,208,141,194,2,169,48,141,197,2,185,1,1,153,1,1,200
180 DATA 208,247,238,194,2,238,197,2,202,208,238,169,55,133,1,88,96
190 C=0:FORI=0TO27:READN:C=C+N:POKE728+I,N:NEXT
200 IFC<>3724THENPRINT"ERROR IN 190-220":STOP
210 DATA 160,0,162,24,169,32,141,233,2,140,232,2,173,4,220,153,1,1
220 DATA 200,208,247,238,233,2,202,208,241,96
230 SF=1:SYS679:POKEV+24,29
240 CD=12288:T=50:SYS728
250 FORB=0TO7*T:POKECD+32*8+INT(B/T),0:NEXT
260 FORI=0TO255:FORB=0TO7:POKECD+I*8+B,I:NEXT:NEXT
270 GOSUB90
280 FORI=0TO31:FORB=0TO7:AD=CD+I*8+B:POKEAD,PEEK(AD+2048):NEXT:NEXT
290 FORB=0TO7:POKECD+160*8+B,PEEK(CD+B):NEXT:PRINT"PRESS THE RETURN KEY"
300 GETR$:IFR$<>CHR$(13)THENPOKE204,0:GOTO300
310 POKE204,1:FORB=0TO7:READCH:POKECD+B,CH:NEXT
320 DATA 130,68,124,84,124,56,16,0
330 FORB=0TO7*T:AD=CD+INT(B/T):POKEAD+32*8,PEEK(AD):NEXT
340 GOSUB90
350 POKE53270,PEEK(53270)OR16
360 GOSUB90
370 POKEBK+1,10:POKEBK+2,1:M$="@ A B C D @":PRINTM$
380 FORI=0TO4:FORB=0TO7:READCH:POKECD+I*8+B,CH:NEXT:NEXT
390 DATA 68,68,252,152,220,220,48,48
400 DATA 48,204,204,204,252,204,204,204,32,136,136,136,168,136,136,136
410 DATA 16,68,68,68,84,68,68,68,48,204,204,136,168,136,68,68
420 FORB=0TO7:POKECD+32*8+B,0:NEXT
430 GOSUB90
440 POKEV+22,8:POKEV+17,91
450 FORI=0TO3:FORCC=1TO11:SC=ASC(MID$(M$,CC,1)):IFSC<>32THENSC=SC+(I-1)*64
460 O=399+CC+I*40:POKESM+O,SC-64*(SC=-32):POKECM+O,CC/2+1
470 NEXT:NEXT
480 GOSUB90
490 POKEBK+1,1:POKEBK+2,7:POKEBK+3,11
500 GOSUB90
510 POKEV+17,59:HI=8192
520 FORI=0TO999:FORB=0TO7:POKEHI+8*I+B,0:NEXT:NEXT
530 PRINTCHR$(147):SYS837
540 O=3843:FORI=0TO39:POKEHI+O+8*I,255:NEXT
550 FORI=0TO24:FORB=0TO7:FORN=1TO3:AD=HI+5*(N+1)*8+40*8*I+B
560 POKEAD,PEEK(AD)OR(16*N)
570 NEXT:NEXT:NEXT
580 FORI=0TO39:POKESM+480+I,I:NEXT
590 GOSUB90
600 POKEV+22,24
610 GOSUB90
620 FORI=0TO24:O=10+40*I:POKECM+O,I:POKESM+5+O,5
630 POKESM+10+O,I*10:NEXT
640 FORI=0TO7:FORB=0TO7:O=80+26+40*I+B:POKESM+O,18:POKECM+O,6:NEXT:NEXT
650 FORI=2TO7:FORB=0TO7:AD=HI+240+320*I+B:POKEAD,PEEK(AD)OR16
660 AE=HI+1812+B*8:POKEAE,255:POKEAE+1,255
670 AF=HI+280+312*I+B:POKEAF,PEEK(AF)OR2^(2*(INT(B/2))+1)
680 NEXT:NEXT
690 POKEBK-1,1:POKE198,0:WAIT198,1:SYS65409:END